home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 04 geoProgramming / COPEIN.SDA / QV.SYSTEM (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  2019-04-13  |  7.0 KB  |  332 lines
  1. QV_SYSTEM
  2. SEQ formatted GEOS file V1.0
  3. Epson FX-80
  4. QV_TABLES
  5. LASTER'S 
  6. ONVERTER 
  7. COPE SOURCE V1.0
  8. COPE EDITOR V1.0
  9. Untitled
  10. EditSource
  11. @7@U@g@w@
  12. ; *****************
  13. ; *     EQUATES FOR GEOS QuickView Program
  14. ; *             BY BILL SHARP
  15. ; ***************
  16. curDevice = $BA
  17. R0 = $02
  18. R1 = $04
  19. R2 = $06
  20. R3 = $08
  21. R4 = $0A
  22. R5 = $0C
  23. R6 = $0E
  24. R7 = $10
  25. R8 = $12
  26. R9 = $14
  27. R10 = $16
  28. R11 = $18
  29. R12 = $1A
  30. R13 = $1C
  31. BOLD = 24
  32. PLAIN = 27
  33. A0 = $FB
  34. A1 = $FD
  35. A2 = $70
  36. A3 = $72
  37. A4 = $74
  38. A5 = $76
  39. A6 = $78
  40. A7 = $7A
  41. A8 = $7C
  42. A9 = $7E
  43. END = A3
  44. CBP = A5
  45. SOB = A6
  46. EOB = A7
  47. MISC = A9
  48. CRMODE = $2E
  49. Dest = R8
  50. Source = R9
  51. Length = R10
  52. ;-----
  53. ; embedded escape characters
  54. CARDSET = 23
  55. TAB = 9
  56. GRAPH = 16
  57. RULER = 17
  58. ;-----
  59. 8^; CONSTANTS
  60. Tabs = $4004
  61. curDrive = $8489
  62. curRecord = $8496
  63. dirEntryBuf = $8400
  64. FileHeader = $8100
  65. CURDHD = $8200
  66. numDrives = $848D
  67. sysDBData = $851D
  68. ;----
  69. ; NOTE:
  70. ;  The more labels you have the slower the As; CONSTANTS
  71. Tabs = $4004
  72. curDrive = $8489
  73. curRecord = $8496
  74. dirEntryBuf = $8400
  75. FileHeader = $8100
  76. CURDHD = $8200
  77. numDrives = $848D
  78. sysDBData = $851D
  79. ;----
  80. ; NOTE:
  81. ;  The more labels you have the slower the Assembler
  82. ;  will run.  Place a semi-colon in front of the routines
  83. ;  you will not be using.
  84. ;MISC
  85. ;BootGEOS     =  $C000
  86. ;ResetHandle   =  $C003
  87. ;InterruptMain  =  $C100
  88. ; PROCESSES
  89. ;InitProcesses   =  $C103
  90. ;RestartProcess =  $C106
  91. ;EnableProcess  =  $C109
  92. ;BlockProcess   =  $C10C
  93. ;UnblockProcess =  $C10F
  94. ;FreezeProcess  =  $C112
  95. ;UnfreezeProcess = $C115
  96. ; GRAPHICS
  97. ;HorizontalLine   =  $C118
  98. ;InvertLine       =  $C11B
  99. ;RecoverLine    = $C11E
  100. ;VerticalLine     = $C121
  101.  Rectangle      = $C124
  102. ;FrameRectangle = $C127
  103.  InvertRectangle = $C12A
  104. ;RecoverRectangle = $C12D
  105. ;DrawLine  = $C130
  106. ;DrawPoint = $C133
  107. ;GraphicsString = $C136
  108.  SetPattern =$C139
  109.  GetScanLine = $C13C
  110. ;TestPoint = $C13F
  111. ; BACKGROUND GENERATION
  112. ;BitmapUp = $C142
  113. ;  CHARACTER MANIPULATION
  114.  PutChar = $C145
  115.  PutString = $C148
  116. ;UseSystemFont = $C14B
  117. ; MOUSE & MENUS
  118. ;StartMouseMode = $C14E
  119. ;RecoverMenu = $C154
  120. ;RecoverAllMenus = $C157
  121.  DoIcons = $C15A
  122. ; UTILITIES
  123. ;DShiftLeft = $C15D
  124. ;BBMult = $C160
  125. ;BMult = $C163
  126. ;DMult = $C166
  127. ;Ddiv = $C169
  128. ;DSdiv = $C16C
  129. ;Dabs = $C16F
  130. ;Dnegate = $C172
  131. ;Ddec = $C175
  132. ;ClearRam = $C178
  133. ;FillRam = $C17B
  134.  MoveData = $C17E
  135. ;InitRam = $C181
  136. ;PutDecimal = $C184
  137. ;GetRandom = $C187
  138. ; MISC MOUSE, MENU, GRAPHICS, SLEEP
  139. ;MouseUp = $C18A
  140. ;MouseOff = $C18D
  141. ;DoPreviousMenu = $C190
  142. ;ReDoMenu = $C193
  143. ;GetSerialNumber = $C196
  144. ;Sleep = $C199
  145. ;ClearMouseMode = $C19C
  146.  i_Rectangle = $C19F
  147. ;i_FrameRectangle = $C1A2
  148. ;i_RecoverRectangle = $C1A5
  149. ;i_GraphicsString = $C1A8
  150. ;  BACKGROUND GENERATION
  151. ;i_BitmapUp = $C1AB
  152. ; CHARACTER MANIPULATIION
  153.  i_PutString = $C1AE
  154. ;GetRealSize = $C1B1
  155. ;      MOUSE & MENUS
  156. ;      UTILITIES
  157. ;i_FillRam = $C1B4
  158.  i_MoveData = $C1B7
  159. ; ROUTINES ADDED LATER
  160. ;GetString = $C1BA
  161. ;GotoFirstMenu = $C1BD
  162. ;InitTextPrompt = $C1C0
  163. ;MainLoop = $C1C3
  164. ;DrawSprite = $C1C6
  165. ;GetCharWidth = $C1C9
  166. ;LoadCharSet = $C1CC
  167. ;PosSprite = $C1CF
  168. ;EnablSprite = $C1D2
  169. ;DisablSprite = $C1D5
  170. ;CallRoutine = $C1D8
  171. ;CalcBlksFree = $C1DB
  172. ;ChkDkGEOS = $C1DE
  173.  NewDisk = $C1E1
  174. ;GetBlock = $C1E4
  175. ;PutBlock = $C1E7
  176. ;SetGEOSDisk = $C1EA
  177.  SaveFile = $C1ED
  178. ;SetGDirEntry = $C1F0
  179. ;BldGDirEntry = $C1F3
  180. ;GetFreeDirBlk = $C1F6
  181.  WriteFile = $C1F9
  182. ;BlkAlloc = $C1FC
  183.  ReadFile = $C1FF
  184.  SmallPutChar = $C202
  185. ;FollowChain = $C205
  186.  GetFile = $C208
  187.  FindFile = $C20B
  188. ;CRC = $C20E
  189.  LdFile = $C211
  190. ;EnterTurbo = $C214
  191. ;LdDeskAcc = $C217
  192. ;ReadBlock = $C21A
  193. ;LdApplic = $C21D
  194. ;WriteBlock = $C220
  195. ;VerWriteBlock = $C223
  196. ;FreeFile = $C226
  197.  GetFHdrInfo = $C229
  198.  EnterDeskTop = $C22C
  199. ;StartAppl = $C22F
  200. ;ExitTurbo = $C232
  201. ;PurgeTurbo = $C235
  202.  DeleteFile = $C238
  203.  FindFTypes = $C23B
  204. ;RstrAppl = $C23E
  205. ;ToBasic = $C241
  206. ;FastDelFile = C244
  207. ;GetDirHead = $C247
  208. ;PutDirhead = $C24A
  209. ;NxtBlkAlloc = $C24D
  210. ;ImprintRectangle = $C250
  211.  i_ImprintRectangle = $C253
  212. ;DoDlgBox = $C256
  213. ;RenameFile = $C259
  214. ;InitForIO = $C25C
  215. ;DoneWithIO = $C25F
  216. ;DShiftRight = $C262
  217. ;CopyString = $C265
  218. ;CopyFString = $C268
  219. ;CmpString = $C26B
  220. ;CmpFString = $C26E
  221. ;FirstInit = $C271
  222.  OpenRecordFile = $C274
  223.  CloseRecordFile = $C277
  224.  NextRecord = $C27A
  225.  PreviousRecord = $C27D
  226.  PointRecord = $C280
  227. ;DeleteRecord = $C283
  228. ;InsertRecord = $C286
  229.  AppendRecord = $C289
  230.  ReadRecord = $C28C
  231.  WriteRecord = $C28F
  232. ;SetNextFree = $C292
  233. ;UpdateRecordFile = $C295
  234.  GetPtrCurDkNm = $C298
  235. ;PromptOn = $C29B
  236. ;PromptOff = $C29E
  237.  OpenDisk = $C2A1
  238. ;DoInlineReturn = $C2A4
  239. ;GetNextChar = $C2A7
  240. ;BitmapClip = $C2AA
  241. ;FindBAMBit = $C2AD
  242.  SetDevice = $C2B0
  243.  IsMseInRegion = $C2B3
  244. ;ReadByte = $C2B6
  245. ;FreeBlock = $C2B9
  246. ;ChangeDiskDevice = $C2BC
  247. ;RstrFrmDialog = $C2BF
  248. ;Panic = $C2C2
  249. ;BitOtherClip = $C2C5
  250. ;StashRAM = $C2C8
  251. ;FetchRAM = $C2CB
  252. ;SwapRAM = $C2CE
  253. ;VerifyRAM = $C2D1
  254. ;DoRAMOp = $C2D4
  255. e`;MAcros for Assembler
  256. ;------
  257. ; MACROS
  258. .MAC loadw; examp.le load R0:memus
  259. ldx #<?2
  260. stx ?1
  261. ldx #>?2
  262. stx ?1+1
  263. ;----
  264. ; this macro sets up the menu structure
  265. .MAC menu
  266. .Word ?1
  267. .Byte ?2
  268. .Word ?3
  269. ;-----
  270. .MA;MAcros for Assembler
  271. ;------
  272. ; MACROS
  273. .MAC loadw; examp.le load R0:memus
  274. ldx #<?2
  275. stx ?1
  276. ldx #>?2
  277. stx ?1+1
  278. ;----
  279. ; this macro sets up the menu structure
  280. .MAC menu
  281. .Word ?1
  282. .Byte ?2
  283. .Word ?3
  284. ;-----
  285. .MAC movew
  286.  ldx ?1
  287.  stx ?2
  288.  ldx ?1+1
  289.  stx ?2+1
  290. ;----
  291. .MAC addw
  292. lda ?1
  293. adc ?2
  294. sta ?2
  295. lda ?1+1
  296. adc ?2+1
  297. sta ?2+1
  298. ;----
  299. .MAC addy
  300. adc ?1
  301. sta ?1
  302. lda ?1+1
  303. adc #0
  304. sta ?1+1
  305. ;----
  306. .MAC bra
  307. jmp ?1
  308. ;-----
  309. .MAC subw
  310.  LDA ?1
  311.  SBC ?2
  312.  STA ?3
  313.  lda ?1+1
  314.  sbc ?2+1
  315.  sta ?3+1
  316. ;-----
  317. .MAC branch
  318. bvc ?1
  319. ;=====
  320. `;This is page 4
  321. ; it is not blank anymore.
  322. `This is page 5.
  323. `This is page 10
  324. U;This is page 4
  325. ; it is not blank anymore.
  326. `This is page 5.
  327. `This is page 10
  328. This is page 5.
  329. `This is page 10
  330. `This is page 10
  331. This is page 10
  332.